Imports DAO
Imports DTO

Public Class KhachHang_Bus

    Inherits AbstractBUS

    Public Function LayBang() As DataTable

        'Kiem tra Business Rule neu co

        Dim dt As DataTable
        Dim khDao As New KhachHang_Dao()
        dt = khDao.LayBang()
        Return dt

    End Function

    Public Function LayDanhSach() As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim khDao As New KhachHang_Dao()
        ds = khDao.LayDanhSach()
        Return ds

    End Function

    Public Sub CapNhatBang(ByVal dt As DataTable)

        'Kiem tra Business Rule neu co
        Dim khDao As New KhachHang_Dao()
        khDao.CapNhatBang(dt)

    End Sub

    Public Function TimKiem(ByVal mkh As Integer) As KhachHang_Dto

        'Kiem tra Business Rule neu co
        Dim khDto As KhachHang_Dto
        Dim khDao As New KhachHang_Dao()
        khDto = khDao.TimKiem(mkh)
        Return khDto

    End Function

    Public Sub Them(ByVal khDto As KhachHang_Dto)

        'Kiem tra Business Rule neu co

        Dim khDao As New KhachHang_Dao()
        khDao.Them(khDto)

    End Sub

    Public Sub Xoa(ByVal mkh As Integer)

        'Kiem tra Business Rule neu co
        Dim khDao As New KhachHang_Dao()
        khDao.Xoa(mkh)

    End Sub

    Public Sub Sua(ByVal khDto As KhachHang_Dto)

        'Kiem tra Business Rule neu co
        Dim khDao As New KhachHang_Dao()
        khDao.Sua(khDto)

    End Sub

    Public Function TraCuu(ByVal khCrt As KhachHang_Crt) As DataTable

        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim khDao As New KhachHang_Dao()
        dt = khDao.TraCuuKH(khCrt)
        Return dt

    End Function
End Class
